home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / VIDEO.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  634b  |  39 lines
  1. option base 0
  2. screen 12
  3. line (0,0)-(640,480),15,bf
  4. open "c:\grin\wohnumge\set8x16.chs" for binary as #1
  5. for j=20 to 200 step 10
  6. call WriteString("Hallo, dies ist ein Test !!!",20,j)
  7. next
  8. close #1
  9. end
  10.  
  11. sub WriteString(tex$,x,y) static
  12.  xx=x
  13.  for i=1 to len(tex$)
  14.   call WriteChar(asc(mid$(tex$,i,1)),xx,y)
  15.   xx=xx+8
  16.  next
  17. end sub
  18.  
  19. sub WriteChar(num,xx,yy) static
  20.  dim byte$(20)
  21.  
  22.  num=num-32
  23.  seek #1,(num*8*2)
  24.  
  25.  for r=1 to 8
  26.   get$ #1,2,byte$(r)
  27.  next
  28.  
  29.  for y=1 to 8
  30.   t=cvi(byte$(y))
  31.   for x=0 to 7
  32.    c=t and (2^x)
  33.    if c=(2^x) then c=0 else c=15
  34.    pset ((xx-x),y+yy),c
  35.   next
  36.  next
  37. end sub
  38.  
  39.